home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  317b  |  17 lines
  1. 1 REM TURTLE-DEMO: 'BLUME'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 INPUT"ITERATIONSGRAD   4[157][157][157]";LE
  6. 25 INPUT"VERSATZWINKEL   80[157][157][157][157]";SU
  7. 30 !GRAPHICS:!INIT:!PEN0:!MOVE140,120:!PEN1
  8. 40 GOSUB100
  9. 50 !FINISH
  10. 60 :
  11. 100 IFLE=0THENRETURN
  12. 110 FORI=1TO4
  13. 120 !WALK10*LE:!TURNLSU:!PUSHI,LE:LE=LE-1:GOSUB100:!PULLLE,I
  14. 130 !TURNR90+SU
  15. 140 NEXT
  16. 150 RETURN
  17.